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INTRODUCTION 

In the past few years, the 
personal connputer has 
found its way into many new 
places. Today’s engineering 
bench often includes one. A 
new challenge is using the 
engineering test equipment 
with the personal computer. 
Many instruments, like the 
Tektronix 7854 Oscilloscope, 
can be interfaced to a per- 
sonal computer. For exam- 
ple, with the popular IBM PC 
and an IEEE-488 interface 
card from National Instru- 
ments (GPIB-PC), you can 
store or retrieve 7854 
application programs on 
diskettes. You can also 
transfer waveforms, text, 
and commands between 
the 7854 and IBM PC. 

; This application note 

describes the installation 
j and configuration of the 

I National Instruments’ 

IEEE-488 interface card, 
i Model GPIB-PC2 and 

! BASIC programs to make 

I these transfers. It also con- 

, tains programs written in 

I IBM BASIC to do the 

I following: 

i • Store and retrieve 7854 

programs. 

I • Transfer and store wave- 

I forms from the 7854. 

I • Send any specific 7854 

I command, 

f • Send text to the 7854. 

I • Send waveforms stored 

on diskette back to the 
7854. 

I • Graph waveforms stored 

\ on diskette. 

l • Send numeric data to 

I the 7854. 

\ • Transfer 7854 results to 

the IBM-PC. 



NATIONAL GPIB 
CARD INSTALLATION 

General Information. 

Adding circuit cards to the 
IBM PC and IBM XT is not 
difficult. Adding cards to the 
IBM portable PC is more dif- 
ficult and is not discussed in 
detail here. Even though no 
changes were made to the 
factory settings, a quick 
review of the settings 
follows; 

• The l/G port address is 
set by the switches at 
position U14. The fac- 
tory setting is Hex 2B8. 
Figure 3-3 in this docu- 
ment and page 3-3 in 
the National Instruments’ 
manual show this 
address setting. 

• The DMA channel is 
selected by jumpers on 
a row of pins (P1 ). The 
factory setting is DMA 
channel 1 . The National 
Instruments manual, the 
IBM PC manual, and 
manuals for other 
installed cards should 
be consulted before any 
changes are made to 
the selection of DMA 
channel 1. 

• Interrupts are not imple- 
mented by the support- 
ing software package. 
The jumper is left in the 
storage position. 

Board Installation. The 

National Instruments’ inter- 
face manual lists a pro- 
cedure to install the card in 
the IBM PC, but here is a 
review; 

• If your computer is an 
IBM PC XT, use the 
‘park’ command to pro- 
tect the disk. 

• Turn off the PC and 
remove power cord. 




Fig. 2-1. IBM PC Rear Panel 




Fig. 2-2. Switch Settings 



• Remove the 5 screws 
from rear panel using a 
y/' socket or straight 
blade screwdriver (see 
figure 2-1). 

• Slide off the plastic 
housing. 

• Check the switch set- 
tings on the National 
card (see figure 2-2) 



• Remove the metal cover 
with a Vb" socket or a 
straight blade screw- 
driver and install the 
National card (see figure 
2-3). 

• Slide the plastic cover 
on and reinstall the 5 
screws 
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Fig. 2-3. Installation of National Card 



Software and 
ard Check 



section describes the 
board and software check 
out of the National Instru- 
ments' interface card. Pro- 
grams are provided for the 
hardware, software, and 



interface settings. These 
programs are user interac- 
tive, requiring correct inputs 
from the keyboard. The soft- 
ware described in the follow- 
ing runs on IBM Personal 
Computer DOS Version 2.0 
and up. If errors occur while 
running the installation 



checkout software, the fol- 
lowing steps can be taken; 

1 . Check the card 
installation (another 
card could be using 
DMA channel 1). 

2. Re-run the software 
(pay strict attention to 
the user prompt). 

If the error still occurs, a call 
to National Instruments is in 
order. The number is listed 
in the manual for the 
interface 

Hardware Check. 

IBDIAG.EXE confirms that 
the hardware circuits are 
working properly. To run the 
program, install the diskette 
in the A disk drive and enter 
■‘ibdiag." The program 
prompts you for inputs and 
displays any errors or 
failures (see figure 2-4). 



Fig. 2-4. IBDIAG Results 

A>ibdiag 

National Instruments Diagnostic 
GPIB-PC Customer Stand Alone Diagnostic 
Copyright © 1984 National Instruments, Inc. 

This diagnostic is provided to verify that you have cor- 
rectly installed your GPIB-PC hardware. It tests the pro- 
grammed I/O, DMA and functional capability of the 
GPIB-PC to the extent possible without a tester con- 
nected on the GPIB bus. 

note— T his diagnostic must be run separately for each 
GPIB-PC card installed in your computer. 

To run the diagnostic, you need to know which I/O 
address and DMA channel the GPIB-PC is set for. If you 
have not changed the settings on the card from what w^ 
set at the factory, you may use the default values listed in 
this program. Refer to section 3 of the GPIB-PC manual if 
you need further explanation of hardware configuration. 

Do you wish to continue? (y /n) : y 
Enter board address in hex (default = 2B8) : 2B8 
Is the GPIB-PC configured to use DMA? (y/n) : y 
Enter DMA channel number (1-3) (default = 1) ; 1 
DISCONNECT ALL GPIB CABLES FROM THE 
GPIB-PC 

Press return to begin tests : 

Tests running 

GPIB-PC diagnostic tests successfully completed. 
Type e to exit ; e 



GPIB-PC IS a Trademark of National Instruments Corporation. IBM PC and IBM PC-XT are 
Trademarks of International Business Machines 
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Software Check. This is a 
two part program. The first 
part does not require a 
device connected to the 
GPIB. The second requires 
a GPIB monitor/ analyzer. 
Only the first half of the pro- 
gram is discussed here. For 
more information about the 
second part of the program, 
see the National Instru- 
ments’ interface manual. 
IBTEST.EXE verifies the cor- 
rect software installation and 
the first test is generally suf- 
ficient. To run IBTEST, dis- 
connect all instruments from 
the GPIB and enter “ibtest." 
An example of the IBM PC 
screen is shown in figure 
2-5. 



Interface Configuration. 

This program controls the 
instruments used on the 
GPIB. You must understand 
the requirements of each 
instrument. Is it a listen only 
device? Is it a talk/ listen 
device? What terminating 
character is required? The 
software lets you make 
these choices, but you must 
understand the require- 
ments of the instruments 
with which you want to com- 
municate. To run the soft- 
ware, enter “ibconf.” Figure 
2 6 shows the screens of the 
software as it is being run. 
The 7854 uses the default 
parameters: an <ENTER> 
will leave the parameters 
unchanged. 



Fig. 2-5. IBTEST Results 

A > ibtest 
A>ibtsta 

Software InstallatioQTest. 

This test verifies the proper installation and operation of 
the software in a stand alone or isolated environment 
and requires no interaction with the user. Disconnect any 
instruments that are connected to the GPIB-PC, then 
press return to begin. 

Did you turn off DMA capability for board GPIB when you 
configured your handler software? (y/n) 
n 

Test in progress . . . 

Test complete. 

If no errors occurred the software is properly installed and 
operational. 

A>ibtstb 

Software Installation Test. 

This test requires some user interaction plus the use of a 
GPIB bus tester or analyzer that is able to monitor and 
display the state of the GPIB lines, accept data from the 
board, and send data to the board. The National Instru- 
ments GPIB-400 Bus Tester or equivalent device from ^ 
another manufacturer can be used for this purpose. 

Attach the tester to the board and press return to begin. I" 
no tester is available, exit this test by entering <control> c. 

Terminate batch job (y/n)? y 
A> 



Fig. 2-6. IBCONF Results 

A > ibconf 

National Instruments GPIB-PC Software Configuration 
Utility, Rev B.2 Copyright © 1984 National Instruments, 
Inc. 

This program allows you to reconfigure certain param- 
eters defined in the file GPIB.COM and automatically 
edits the file CONFIG.SYS as needed. If you have not 
already done so, copy this program and the file 
GPIB.COM to the root directory of the boot disk drive and 
restart IBCONF from there. 

• The binary file will NOT be altered when the DEFINE 
command is used to enter new default values. 

• The binary file WILL be altered if the SAVE command 
is used to write out new default values. 

• At any time before issuing the SAVE command, you 
may quit this program by typing <CTRL-C> in 
response to the arrow (>) prompt, and the binary file 
will remain unchanged. 

IT IS STRONGLY RECOMMENDED THAT YOU MAKE 
A BACKUP COPY OF THE FILE TO BE CONFIGUREM 
BEFORE PROCEEDING WITH THIS PROGRAM. ^ 

Press return to begin. 

>>>> 

Scanning file spib.com . . . reading data . . . completed. 

2 Board (s) 1 6 Device(s) 
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Fig. 2-6. (cont) 

DERNE SYSTEM PARAMETERS 
(effective for all boards) 



PARAMETER 

Reference Clock 
Frequency? (decimal) 
Disable Automatic 
Serial Polling? 



DEFAULT NEW VALUE 



8 MHz].. > 



[ no]. . > 



You may now proceed with board and device level 
configurations. If you need help, type HELP. 

cmd> H 



Sh[ow] 
or Sh[ow] 



D[efine] 

D[efine] 



Sa[ve] 



H[elp] 

E[xit] 

NOTE1 



NOTE 2- 



<unit name> 
-ALL 



COMMAND EXPLANATION 

^] <unit name> SHOW currently defined 

w] -ALL values for a board or 

device, or show all board 
names and the names 
of the devices they 
access. 

ne] <unit name> DEFINE new default 

ne] -ALL values for an existing 

board or device, or define 
new values for all units 
from a specified source 
file. 

g] SAVE the currently 

defined values for all 
boards and devices to the 
file on disk. 

)] HELP! Display this 

screen. 

I EXIT this program. 

E 1 — New devices cannot be defined, but existing 
devices can be redefined by changing their 
name field (see DEFINE). 

E 2 — If <unit name> is omitted from SHOW or 
DEFINE, then the last board or device refer- 
enced will be used. 



1 
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Fig. 2-6. (cont) 

cmd> d GPIBO 



NAME: GPIBO 


NUMBER: BO 


PARAMETER 


DEFAULT NEW VALUE 


Primary GPIB Address? 
(hex) 


[ OOH]. . > 


Secondary GPIB 
Address? (hex) 


[ 0:none]. . > 


Timeout settings? 
(decimal) 


[ 13].. > 


EOS byte? (hex or 
‘<char>’) 


[ OOH], . > 


EOS modes (REOS 
XEOSBIN) 

Terminate read on 
EOS? 


[ no]. . > 


Send EOl with EOS 
byte? 


[ no]. . > 


Use 8-bit compare on 
EOS? 


[ no]. . > 


Board Options (SC EOT) 
Board is System 
Controller? 


[ yes]. . > 


Timeout setting? 
(decimal) 


[ 13].. > 


EOS byte? (hex or 
‘<char>’) 


[ OOH]. . > 


EOS modes (REOS 
XEOSBIN) 

Terminate read on 
EOS? 


[ no]. . > 


Send EOl with EOS 
byte? 


[ no]. . > 


Use 8-bit compare on 
EOS? 


[ no]. . > 


Board Options (SC EOT) 
Board is System 
Controller? 


[ yes].. > 


Send EOl w/last byte 
of write? 


[ yes]. . > 


Port Address? (hex) 


[ 02B8H]. . > 


DMA channel? 

(decimal) 


[ 1]- > 


Use high-speed 
(3-state) Timing? 


[ no]. . > 



cmd> sa 

CONFIRM: save all boards and devices? (y/n) 

>>>> y 

cmd > 
cmd> e 

CONFIRM: exit ibconf? (y/n) 

>>>> y 

A> 



User Trap. To change the 
configuration file, you can- 
not just make the change 
and run the program. The 
file containing the configura- 
tion information (config. sys) 
is read only when the sys- 
tem is booted up. Therefore, 
if you make changes to the 
configuration, re-boot the 
system. Pressing the CTRL, 
ALT and DEL keys simul- 
taneously will re-boot the 
system and read the new 
configuration. 

PRCX3IRAMMING 

DETAILS 

General Information 

Loading the Interface Driv- 
ers. The software you 
receive with the National 
interface card contains a 
sample program 
(DECL.BAS). This program 
sets up a memory location 
to call a specific interface 
command. It can be loaded 
into memory and used as 
the first few lines in anv pro- 
gram. Figure 3-1 shov^ a 
printout of the program. 
Each basic program that 
uses the IEE-488 interface 
must be loaded. Figure 4-1 
is an example. 



Software Organization. This 
software package is com- 
mand line/menu driven. A 
menu is printed on screen 
and the menu item is 
selected by pressing the 
corresponding function key. 
By using the INKEY$ func- 
tion in BASIC, the software 
waits for you to select the 
next software routine. There 
are ten subroutines, eight 
dealing with transfering 
information to and from the 
7854. The ninth subroutine 
graphs waveforms that have 
been saved on diskette, and 
the last subroutine exits from 
BASICA back to DOS. 

Programming the 7854 

Using the 7854 Service 
Request Many of the com- 
mands sent to the 7854 
need time to complete. The 
7854 has an interrupt 
scheme that is based on the 
serial poll system which 
the controller when it hal®^ 
finished the last task. You 
can use the software to ask 
the 7854 which state it is in, 
especially before asking 
the 7854 to do something 
else. Even though a simple, 
single command, such as 
“AQR”, IS sent to the 7854, 
the software must wait until 
the acquisition is complete 
before issuing further com- 
mands (see Figure 3-2). 







(( 



Fig. 3-1. Loading of Drivers 

5 REM ! ! ! LINES 10 TO 60 SET UP THE GPIB 
DRIVER CALLS!!! 

10 CLEAR ,60000! ' GPIB-PC Rev. B.1 

20 IBINIT1 = 60000! ’ BASICA Declaration File 

30 IBINIT2 = IBINIT1 + 3 ’ 

40 BLOAD “bib.m’MBINITI 

50 CALL IBINIT1 (IBFIND, IBTRG, IBCLR, IBPCT, IBSIC, 
IBLOC, IBPPC, IBBNA, IBONL, IBRSC, IBSRE, 
IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, 
IBEOT) 

60 CALLIBINIT2(IBGTS, IBCAC, IBWAIT, IBPOKE, 
IBWRT, IBWRTA, IBCMD, IBCMDA, IBRD, IBRDA, 
IBSTOP, IBRPP, IBRSP, IBDIAG, IBXTRC, IBSTA%, 
IBERR%, IBCNT%) 



Fig. 3-2. Wait for Completion of Task 



WRT$ - ”0 WFM AQR” 



CALL IBWRT(DSO%,WRT$) 



! STRING TELLS 
7854 TO 
ACQUIRE 
WAVEFORM 
! SEND THE 
STRING 
! CHECK THE 
GPIB STATUS 



1BSTA%<0 THEN GOSUB 190 

CALL IBRSP(DSO%,STA%); IF STA%<>2 AND 
STA%<>66 THEN 5140 
! IF THE 7854 HAS NOT COMPLETED THE 
ACQUIRE THEN WAIT at line 5140 




Programming ‘Overhead’. 

Writing progranns in BASIC 
nneans that many of the lines 
of code have little to do with 
the task you are trying to do. 
These are programming 
‘overhead’. The subroutines 
listed on the pages that fol- 
low illustrate this. Each rou- 
tine has 10 to 15 lines of 
code that do the following: 

1 . Show you which routine 
you are in. 

2. Let you get back to the 
menu if this was not the 
routine you wanted. 

3. Set up any ‘on error' 
conditions. 

4. Print a list of file names 
already stored on disk. 

Since the average sub- 
routine length is about 30 
lines, 1/3 of the code deals 
with the interfacing. About 
1/2 of the rest of the code 
deals with the task you are 
trying to accomplish. The 
rest of the code does the 
general housekeeping nec- 
essary to the job. 

7854 GPIB Facts. The 7854 
transfers ASCII bytes over 
the GPIB. This includes 
waveforms, text, or results. 
The rear panel of the 7854 
contains the address 
switches and GPIB bus ter- 
minating characters. Figure 
3-3 shows the 7854 settings 



for this software. By press- 
ing the 7854 ID button, the 
current 7854 settings are 
printed on screen. To run 
this software the 7854 is set 
to TALK LISTEN EOl/LF with 
a primary bus address of 1 . 

Changing Points Per 
Waveform. Although this is 
explained in the 7854 Oper- 
ators Manual, a common 
7854 programming error 
occurs when sending num- 
bers to the 7854. For exam- 
ple, to change the points 
per waveform, the 7854 
expects to see a space 
between each number in 
the string it receives. To 
change the 7854 to 1024 
points per waveform, the 
following string is sent 
“1 024 >P/W”. 

SOFTWARE 
PACKAGE DETAILS 

7854 Setup 

Turn the 7854 power switch 
on. Set the rear panel 
switches (figure 3-3), and 
connect the GPIB cable. 





Program Details 

The remaining sections of 
this note will describe the 
BASIC program. The main 
line program will be de- 
scribed first, followed by 
each of the subroutines. The 
main line program contains 
the call routine for the driv- 
ers, the setting of the active 
keys, and the available 
menu of subroutines. Figure 
4-1 is a print out of the main 
line program. 



Fig. 4-1. Main Line Program 



GPIB-PC Rev. B.l 
BASICA Declaration File 
through line 170 

supplied by National Instruments 



100 KEY OFF: SCREEN 0: LOCATE 1,1,0 
no CLEAR ,60000! 

120 IBINITl = 60000! 

130 IBINIT2 = IBINITl + 3 

140 BLOAD "bib. m", IBINITl 

150 DEF SEG=0:P0KE 1047,64:DEF SEG 

160 CALL IBINIT1(IBFIND,IBTRG,IBCLR,IBPCT,IBSIC,IBL0C,IBPPC,IBBNA, 

IB0NL,IBRSC, IBSRE, IBRSV, IBPAD, IBSAD, IBIST, IBDMA, IBEOS, IBTMO, IBEOT) 
170 CALL IBINIT2(IBGTS,IBCAC,IBWAIT,IBP0KE,IBWRT,IBWRTA,IBCMD, 

IBCMDA, IBRD, IBRDA, IBSTOP , IBRPP, IBRSP, IBDIAG, IBXTRC, IBSTA%, IBERRX, 
IBCNTJ) 

’ Looks up 'DEVO' from the Configuration 
' file when the interface was set up. 

' Checks for GPIB error. This is done after 
each read or write throughout this software. 

' Sends 'clear* to 7854 
' The 7854 is put 
' into the 'STORED' display 
' mode. 



180 CLS:0EV$="DEV0" 

190 CALL IBFIND (0EV$,0S03;) 
200 IF IBSTA%<0 THEN GOTO 710 



210 CALL IBCLR(0S0«) 

220 WRT$="ST0RED" 

230 CALL IBWRT(0S0%,WRT$) 

240 IF IBSTA%<0 THEN GOSUB 710 
250 REM THIS IS TO THE MENU- 
260 CLS: COLOR 7,0: GOSUB 620 
265 LOCATE X-2,Y+18:PRINT "MENU 
270 LOCATE X-1,Y:PRINT ' 

280 LOCATE X-1,Y: PRINT ' 

290 LOCATE X,Y:PRINT " 

300 LOCATE X+1,Y: PRINT ' 

310 LOCATE X+2,Y:PRINT ' 

320 LOCATE X+3,Y:PRINT ' 

330 LOCATE X+4,Y ‘.PRINT ' 

340 LOCATE X+5,Y: PRINT ' 

350 LOCATE X+6,Y:PRINT ' 

360 LOCATE X+7,Y: PRINT ' 

370 LOCATE X+8,Y:PRINT 
380 LOCATE X+9,Y: PRINT 
390 LOCATE X+10,Y:PRINT 
400 LOCATE X+11,Y:PRINT 
410 LOCATE X+12,Y:PRINT 
420 LOCATE X+13,Y:PRINT 
430 LOCATE X+14,Y:PRINT 
440 LOCATE X+15,Y:PRINT 
450 LOCATE X+16,Y:PRINT 
460 LOCATE X+17,Y:PRINT 



<S>AVE PROGRAM save 7854 program on disk^^ 

<L>0AD PROGRAM Load 7854 program from disk 

<R>ECEIVE WAVEFORM Saves 7854 waveform " 

<T>RANSMIT WAVEFORM Send waveform to 7854 

<D>ISPLAY WAVEFORM {..Display saved waveform 

'<W>RITE Sends text to 7854 

II 

"<C>0MMANDS STRINGS. .Sends command string to 7854 

II 

"<G>ET X REGISTER. . .Receive X register information 

It 

"<0>UTPUT TO X REGISTER 7854 X register 

II 

"<E>XIT Exits to basic 



470 LOCATE X+18,Y:PRINT " . , , 

480 GOSUB 610 ' This subroutine does a 'poke to lock on capital letters. 

Only caps are defined in the 'INKEY$' statements. 

490 Q$=INKEY$:IF Q$="" THEN 480 

100 
100 
100 
100 
250 
100 
100 
100 
100 



500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 



IF Q$="S 
IF Q$="L 
IF Q$="R 
IF Q$="T 
IF Q$="W 
IF q$="o 
IF Q$="C 



THEN GOSUB 1000: GOTO 

THEN GOSUB 2000: GOTO 

THEN GOSUB 3000: GOTO 

THEN GOSUB 4000: GOTO 

THEN GOSUB 5000: GOTO 

THEN GOSUB 6000: GOTO 

THEN GOSUB 7000: GOTO 

IF Q$=''G" THEN GOSUB 7500: GOTO 

IF Q$="0'' THEN GOSUB 8000:G0T0 

IF Q$="E" THEN GOSUB 8500 

BEEP: GOTO 490 



610 DEF SEG=0:P0KE 1047,64:DEF SEG:RETURN 'Turn on caps lock 
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Sending 7854 Programs. 

The two subroutines listed in 
Figures 4-2 and 4-3 will 
transfer programs written in 
the internal 7854 RPN lan- 
guage. The programs are 
read in the IBM-PC a line at 
a time. A carriage return 
(character 13) is added to 
each line. This is stored in 
the open file and the next 
line is brought in. This con- 
Inues until the entire pro- 
gram is read in. To send the 
program back to the 7854, 
the file is opened and each 
line is read in and sent until 
the end of the file is found. 



Rg. 4-1 (cont) 

620 X=4:Y=16 ' lines 620 to 700 draws the box for. the main menu 

630 LOCATE X-2,Y-3:PRINT STRING$(53,205 ) ;CHR$( 187) 

640 FOR 1=1 TO 20: LOCATE X-l.Y+50: PRINT CHRSU86) :X=X+1:NEXT I 
650 LOCATE X-l.Y- STRING$(53,205 ) ;CHR$ ( 188) 

660 LOCATE X-1.Y-3:PRINT CHR$(200) 

670 FOR 1=20 TO 1 STEP -IrLOCATE X-2.Y-3:PRINT CHR$(186) :X=X-1:NEXT I 
680 LOCATE X-2, Y-3:PRINT 

700 RETURN ^ ^ 

710 S$=HEX$(IBSTA%):PRINT S$:PRINT IBERR%:PRINT IBCNT* Any GPIB error 

is printed on screen 

720 IF S$="8100" THEN 740 ' If the 7854 does not respond to the 

first call, line 740 is executed and the program is ended. 

730 RETURN 

740 CLS: LOCATE 25,1: PRINT " The 7854 is NOT on line. Check the 7854 rear panel 
settings or the GPIB cable." 

750 END 



Rg. 4-2. Store 7854 Programs 

1000 REM ! ! 7854 programs are transferred and stored on disk 
1010 ' lines 1010 to 1090 prints title of routine, lists programs on disk, and 
gives user an option of returning to main menu. 

1020 CLS:L0CATE X+8,1:PRINT STRING$(80,205 ) :L0CATE X-1,1:C0L0R 0,7:PRINT 
STRINGS(240 32) 

1030 L0CATE’x,Y:PRINT "TRANSFER 7854 PROGRAM TO THE DISK":C0L0R 7,0 
1040 LOCATE X+10,Y:0N ERROR GOTO 9510:FILES PRO" : LOCATE X+16,1:PRINT 
THESE FILES ALREADY EXIST" 

1050 LOCATE X+8,Y+10: PRINT " 7854 P R 0 G R A M FILES 

1060 LOCATE 25,1: PRINT "COMMANDS: <C>0NTINUE <M>AIN MENU ; 

1070 Q$=INKEY$:IF Q$="" THEN 1070 
1080 IF Q$="C" THEN 1110 
1090 IF Q$="M" THEN RETURN 
1100 GOTO 1070 

1110 LOCATE 25,1:PRINT STRING${79,32) ; :L0CATE X+18,1:INPUT " INPUT FILE NAME 
(without extension) :", FILES 
1120 FILE$=FILE$+".PRO" 

1130 OPEN FILES FOR OUTPUT AS #1 

1140 WRTS="EXECUTE 0 GOTO PROGRAM SAVE" ’ sets 7854 to program mode, 

1150 CALL IBWRT(0S01,WRTS) ' sets program marker to line 

1160 IF IBSTAKO THEN GOSUB 710 and prepares to send program. 

1170 CALL IBRSP(DSOS,STAl):IF STAK>144 AND STAS<>208 THEN 1170 
1180 V%=SHD:CALL IBE0S(0S0%,V%) 'sets terminating character to EOI only. 

1190 FS=SPACES(95) 

1200 CALL IBRD(DSO%,FS) ’ read line from 7854 

1210 IF IBSTAKO THEN GOSUB 710 

1220 CS=CHRS(13) ' add carrage return to each line 

1230 PRINT #1,FS+CS ' store line on disk 

1240 XS=HEXS(IBSTA%) , .. . .u locn 

1250 IF XS="2900" THEN 1260 ELSE ’ check GPIB status, if done then 1250 

1260 CLOSE #1 . . , 

1270 Vl=4H400:CALL IBE0S(DS0%,Vt) ' change terminator back to original 
1280 WRTS="EXECUTE" ' take 7854 out of program mode 

1290 CALL IBWRT(DSOS,WRTS) 

1300 IF IBSTA%<0 THEN GOSUB 710 
1310 CALL IBLOCfDSOS) 

1320 QS="" 

1330 RETURN 
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Fig. 4-3. Send 7854 Programs 



2000 REM ! ! 7854 programs are transfer from disk ta the 7854 

2010 V*=4HD:CALL IBE0S(DS0*,VI) ' change terminator mode to EOI only 

2020 ' lines 2020 to 2100 prints title of routine, lists programs on disk, and 

gives user an option of returning to main menu. 

2030 CLS:L0CATE X+8,1:PRINT STRING$(80,205) : LOCATE X-1,1:C0L0R 0,7:PRINT 
STRING$(240,32) 

2040 LOCATE X,Y:PRINT "TRANSFER 7854 PROGRAM FROM THE DISK":C0L0R 7,0 
2050 LOCATE X+10,Y:0N ERROR GOTO 9510:FILES PRO LOCATE X+16,1:PRINT " 

THESE FILES HAVE BEEN STORED" 

2060 LOCATE X+8,Y+10:PRINT " 7854 PROGRAM FILES " 

2070 LOCATE 25,1:PRINT "COMMANDS: <OONTINUE <M>AIN MENU 

2080 Q$=INKEY$:IF Q$="" THEN 2080 

2090 IF QS="C" THEN 2120 

2100 IF Q$="M" THEN RETURN 

2110 GOTO 2080 

2120 WRT$="PROGRAM CLP NEXT" ' clears any program stored in 7854 memory 

2130 CALL IBWRT(DSO%,WRT$) 

2140 IF IBSTAX<0 THEN GOSUB 710 

2150 LOCATE 25,1:PRINT STRING$(79,32) ; :L0CATE X+18,1:INPUT " INPUT FILE NAME 
(without extension):", FILES 



2160 FILE$=FILE$+".PRO" 

2170 OPEN FILES FOR INPUT AS #1 
2180 INPUT #1,TS 
2190 IF EOF(l) THEN 2230 
2200 CALL IBWRT(DSOS,TS) 

2210 IF IBSTAKO THEN GOSUB 710 

2220 GOTO 2180 

2230 CLOSE #1 

2240 V*»AH40D 

2250 CALL IBE0S(DS0*,YX) 

2260 IF IBSTAS<0 THEN GOSUB 710 
2270 WRTS="EXECUTE" 

2280 CALL IBWRT(DSOX,HRTS) 

2290 IF IBSTAX<0 THEN GOSUB 710 
2300 CALL IBCLR(0S0%) 

2310 CALL IBLOC(DSOi) 

2320 QS="" 

2330 RETURN 



' reads in line from disk 
' checks for end of file 
' writes line to 7854 

'gets another line 

'resets terminator 



changes 7854 ^ut of program mode 



Waveform Transfers. The 

two subroutines listed in Fig- 
ures 4-4 and 4-5 will transfer 
waveforms to and from the 
7854. The 7854 sends both 
preamble and curve (wave- 
form) data. These are stored 
in two separate files (a .pre 
and a .wfm file). Once the 
transfer of curve data is 
started, the transfer will con- 
tinue until the 7854 sends a 
SRQ saying that it is done. 
When sending the waveform 
back to the 78^54, the end of 
the file is used to terminate 
the transfer. 






Fig. 4-4. Storing Waveforms Subroutine 



3000 REM ! ! Gets waveforms from 7854 and stores them. on disk 

3010 ' lines 3010 to 3100 prints title of routine, lists programs on disk, and 

gives user an option of returning to main menu. 

3020 CALL IBCLR(DSOl) 

3030 CLSrLOCATE X+8,1:PRINT STRING$(80,205 ) : LOCATE X-1,1:C0L0R 0,7;PRINT 
STRING$(240,32) 

3040 LOCATE X,Y:PRINT "TRANSFER 7854 WAVEFORM TO THE DISK":C0LOR 7,0 
3050 LOCATE X+10,Y:0N ERROR GOTO 9510:FILES "*. WFM" : LOCATE X+16,1:PRINT " 

THESE WAVEFORMS EXIST ON DISK" 

W A V E F 0 
<C>0NTINUE 



M FILES " 
<M>AIN MENU 



INPUT FILE NAME 



3060 LOCATE X+8,Y+10:PRINT " 7854 
3070 LOCATE 25,1: PRINT "COMMANDS: 

3080 Q$=INKEY$:IF Q$="" THEN 3080 
3090 IF Q$="C" THEN 3120 
3100 IF Q$="M" THEN RETURN 
3110 GOTO 3080 

3120 LOCATE 25,1:PRINT STRI NG$( 79, 32) ;: LOCATE X+18,1:INPUT 
(without extension):", FILES 

3130 CLS: LOCATE 15,10 :PRINT "TRANSFERRING WAVEFORM . . . 

3140 OPEN FILES+".PRE" FOR OUTPUT AS #1 
3150 OPEN FILE$+".WFM" FOR OUTPUT AS #2 
3160 STAS=0 
3170 1=1 

3180 WRTS="0 WFM SENDX" 

3190 CALL IBWRT(DSO*,WRT$) 

3200 IF IBSTAS<0 THEN GOSUB 710 
3210 RD$=SPACES(95) 

3220 CALL I8RD(DS0S,RD$) 

3230 IF IBSTA*<0 THEN GOSUB 710 
3240 PRINT #1,R0$; 

3250 CALL IBRD(DS0*,R0S) 

3260 IF IBSTAi<0 THEN GOSUB 710 

3270 PRINT #2,RDS; ' waveform is stored on disk (.wfm file) 

3280 CALL IBRSP(DSO%,STAX):IF STA%=2 THEN 3320 

3290 GOTO 3250 ’ if 7854 is not done then 3240 

3300 ' user is given the option of getting another waveform or returning to 

main menu 



7854 is asked to send 0 waveform 



the preamble is read first 

preamble is stored on disk (.pre file) 
waveform is then read in 



3310 CLS:LOCATE 10,10:PRINT "TRANSFER COMPLETE" 
3320 LOCATE 25,1:PRINT "COMMANDS: <R>EPEAT <M>ENU 
3330 GOSUB 3380 

3340 Q$=INKEY$:IF QS="" THEN 3330 
3350 IF Q$="R" THEN GOTO 3390 
3360 IF Q$="M" THEN GOTO 3400 
3370 GOTO 3340 

3380 DEF SEG=0:P0KE 1047,64:DEF SEG: RETURN 

3390 CLOSE #1,#2:QS="" :G0T0 3000 

3400 CLOSE #1,#2:Q$="":CALL IBL0C(DS0* ) :RETURN 




Fig. 4-5. Sending 7854 Waveforms Subroutine 

4000 REM ! ! Gets waveform from disk and transfers them to 7854 

4010 ' lines 4010 to 4100 prints title of routine, lists programs on disk, and 

gives user an option of returning to main menu. 

4020 CLS 

4030 LOCATE X+8, 1:PRINT STRING$(80, 205 ): LOCATE X-1,1:C0L0R 0,7:PRINT 
STRING$(240,32) 

4040 LOCATE X,Y:PRINT "TRANSFER WAVEFORM FROM DISK TO 7854":C0L0R 7,0 
4050 LOCATE X+10,Y:0N ERROR GOTO 9510:FILES WFM" : LOCATE X+16,1:PRINT " 

THESE WAVEFORMS EXIST ON DISK" 
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Rg. 4-5 (cont) 



INPUT FILE NAME 



4060 LOCATE X+8.Y+10: PRINT " 7854 WAVEFORM FIIES " 

4070 LOCATE 25,1:PRINT "COMMANDS: < <M>AIN MENU 

4080 Q$=INKEY$:IF Q$="" THEN 4080 
4090 IF Q$="C" THEN 4120 
4100 IF Q$="M" THEN RETURN 
4110 GOTO 4080 

4120 LOCATE 25,1:PRINT STRING$(79,32) ; :LOCATE X+18,1: INPUT 
(without extension):", FILES 

4130 CLS:LOCATE 16,10:PRINT "LOADING WAVEFORM FROM DISK " 

4140 OPEN FILE$+".PRE" FOR INPUT AS #1 

4150 LINE INPUT #1,PRE$ ’ read in preamble from disk 

4160 CLOSE #1 

4170 L=VAL(MI0$(PRES.INSTR(l,PRES,"NR.PT:")+6,9)) ' find out number of points 
4180 OPEN FILES+".WFM" FOR INPUT AS #2 

4190 DIM WS(L):I=0 ‘ dimension string to number of points 

4200 1=1+1 'lines 4210 to 4260 put waveform into a string array 

4210 IF E0F(2) THEN 4320 

4220 INPUT #2,WFMS 

4230 IF I=L THEN 4260 

4240 W$(I)=WFMS+CHRS(44) 

4250 GOTO 4200 
4260 L$=STRS(L) 

4270 A=LEN(L$) 

4280 FOR J=1 TO A * puts a space between each value in the string 

4290 LLS=LLS+LEFT$(LS,1)+CHR$(32):L$=RIGHTS(L$,A-J) 

4300 NEXT J 

4310 LLS=LLS+" >P/W":CALL IBWRT(DSOS,LLS) : IF IBSTAJ<0 THEN GOSUB 700 ’ the 

7854 is set to the proper points per waveform 

4320 CLS: LOCATE 15, 10: PRINT "TRANSFERRING WAVEFORM TO 7854 " 

4330 WS(I)=WFMS:WRT$="0 WFM READX" 'tell 7854 to read waveform into 0 
waveform memory 

4340 CALL IBWRT(DSO%,WRT$) / 

4350 CALL IBRSP (DS0*,STAS) : IF STA*<>147 AND STAS<>2l4 THEN 4350 'is 7854 ready 
to read waveform? 



changes number of points to a string 



4360 IF IBSTA%<0 THEN GOSUB 710 

4370 VS=0:CALL IBE0T(0S0*,V%) ' dont terminate on EOI 

4380 CALL IBWRT(DSOX,PRE$) ' write preamble to 7854 

4390 Vi=l 
4400 FOR A=1 TO L 

4410 IF A=I THEN CALL IBE0T(DS0*,V%) ' if done then terminate transfer 
4420 CALL IBWRT(DSOS,W$(A) ) ' write waveform to 7854 

4430 IF IBSTA*<0 THEN GOSUB 710 
4440 NEXT A 

4450 CLS:LOCATE 10,10:PRINT "TRANSFER COMPLETE" 

4460 'user has option of sending another waveform to 7854 
4470 LOCATE 25,1:PRINT STRING$(79,32) ; 

4480 LOCATE 25,1: PRINT " COMMAND: <R>EPEAT <M>ENU 

4490 GOSUB 4540 

4500 Q$=INKEY$:IF QS="" THEN 4490 
4510 IF Q$="R" THEN GOTO 4550 
4520 IF Q$="M" THEN GOTO 4560 
4530 GOTO 4500 

4540 DEF SEG=0:P0KE 1047,64:DEF SEG:RETURN 

4550 CLOSE #1,#2:ERASE W$:G0T0 4000 

4560 CLOSE #1,#2:V%=4H400:CALL IBE0S(DS0*,V%) 

4570 CALL IBLOC(DSOl) 

4580 0$="": ERASE W$ 

4590 RETURN 




Writing Text to 7854. This 
subroutine will transfer text 
to the 7854 to be displayed 
on the 7854 CRT. Figure 4-6 
is the program listing for this 
subroutine. A box about 40 
characters wide is gener- 
ated on the screen. This is 
the number of characters 
the 7854 will print on each 
line. The 7854 will accept 
12 lines of text. The software 
numbers each line for your 
information. 

Sending Commands to 
7854. This subroutine will 
allow you to send com- 
mands to the 7854. These 
commands are the usual 
7854 commands found in 
the 7854 operators manual. 
It is up to you to provide any 
signal required by the 7854. 
However, you must use cau- 
tion in choosing the com- 
mands to send. Figure 4-5 
lists this subroutine. 

€Z 



Fig. 4-6. Send Text Subroutine 



5000 REM ! ! Input text on IBM to be transferee! to 7854 

5010 'user can transfer text Into lines 2 through 14 of the 7854 

5020 CLSiGOSUB 620:L0CATE X-2,Y+10:PRINT " TEXT TRANSFER "iLOCATE X,Y+1 

5030 VI=4HD:CALL IBE0S(DS0*,¥l) 

5040 PRINT "ENTER THE TEXT TO BE TRANSFERRED* EACH LINE" 

5050 LOCATE X+1,Y+1:PRINT "NUMBER WILL BE PRINTED. ENTER 'XMT' TO TRANSFER" 
5060 LOCATE X+2,Y+1:PRINT "TEXT. A <RETURN> WILL ENTER A BLANK LINE." 

5070 C$=CHR$(13) 

5080 FOR 1=1 TO 12 

5090 LOCATE X+( 1+4) ,Y-1:PRINT I:L0CATE X+(I+4),Y+2:LINE INPUT L$ 

5100 IF L$="XMT" THEN 5140 
5110 T$=T$+L$ 

5120 T$=T$+C$ 

5130 NEXT I 

5140 WRT$="EXECUTE >TEXT" 

5150 CALL IBWRT(0S0%,WRT$) 

5160 IF IBSTAJ<0 THEN GOSUB 710 

5170 CALL IBRSP(DS0X,STA*):IF STA*<>!49 AND STAX<>213 THEN 5170 
5180 CALL IBWRT(DS0X,T$) 

5190 IF IBSTA2<0 THEN GOSUB 710 

5200 WRT$="EXECUTE":CALL IBWRT(DS0*,WRT$) 

5210 IF IBSTAX<0 THEN GOSUB 710 
5220 CALL IBL0C(0S0%) 

5230 Q$="": RETURN 



Fig. 4-7. Send Commands Subroutine 

7000 REM ! ! 7854 commands are inputed 4 sent to 7854 

7010 ' lines 7010 to 7080 prints title of routine, lists programs on disk, and 
gives user an option of returning to main menu. 

7020 CLS:L0CATE X-3,1:C0L0R 0,7:PRINT STRING$(240,32) 

7030 LOCATE X-2,Y:PRINT "SENDING COMMANDS TO THE 7854 "-.COLOR 7,0 
7040 LOCATE 25,1: PRINT STRING$(79, 32) LOCATE 25,1 
7050 PRINT " COMMANDS: <C>0NTINUE <M>AIN MENU "; 

7060 Q$=INKEY$:IF Q$="" THEN 7060 
7070 IF Q$="C" THEN 7100 
7080 IF Q$="M" THEN 7140 
7090 GOTO 7060 

7100 CLS:L0CATE 10,10:INPUT "INPUT COMMAND TO BE SENT:",WRT$ 

7110 CALL IBWRT(DS0X,WRT$) 

7120 LOCATE 15, 10: INPUT "DO YOU WISH TO SEND MORE COMMANDS" ;ANS$ 

7130 IF ANS$="Y" THEN GOTO 7100 
7140 CALL IBLOC(DSOX) 

7150 0$="": RETURN 
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X Register TVansfers. Fig- 
ures 4-8 and 4-9 list sub- 
routines to read and write 
to the 7854 X Register. 
Because of the waveform 
processing power of the 
7854, transferring the 
answers generated by the 
7854 is important. These 
subroutines allow you to 
transfer the results from the 
X Register and print them 
out on the screen and to 
transfer values to the X 
Register. 



Fig. 4-8. Getting X Register Contents 



7500 REM !!! The X register is read and transfered to IBM PC 

7510 ' lines 8010 to 8090 prints title of routine, lists programs on disk, and 

gives user an option of returning to main menu. 

7520 Y%=4HD:CALL IBE0S{DS0X,VI) 

7530 CLS:L0CATE X-3,1:C0L0R 0,7:PRINT STRING$(240,32) 

7540 LOCATE X-2,Y:PRINT "GET X REGISTER FROM THE 7854 ":C0L0R 7,0 

7550 LOCATE 25,1 

7560 PRINT " COMMANDS: <C>0NTINUE <M>ENU 

7570 Q$=INKEY$:IF Q$="“ THEN 7570 

7580 IF QS="C" THEN 7610 

7590 IF Q$="M" THEN 7780 

7600 GOTO 7570 

7610 Q$="":CLS: LOCATE 10,10:PRINT "THIS WILL RECEIVE THE CONTENTS OF THE X 
REGISTER" 

7620 CALL IBLOCfOSOX) 

7630 LOCATE 12,10:PRINT "YOU MAY SETUP THE X REGISTER AS NEEDED" 

7640 LOCATE 14,10:INPUT "HIT 'ENTER' TO CONTINUE" ,ANS$ 

7650 S$=SPACE$(40) 

7660 WRT$="SENDX" 

7670 CALL IBWRT(0S0%,WRT$) 

7680 IF I8STAX<0 THEN GOSUB 710 

7690 CALL IBRSP(DSOi,STA%) : IF STAi<>146 AND STA*<>210 THEN 7690 
7700 CALL IBRD{DSOS,S$) 

7710 IF IBSTA%<1 THEN GOSUB 710 
7720 LOCATE 20,10:PRINT S$ 

7730 LOCATE 25,1: PRINT "COMMAND: <R>EPEAT <M>ENU 

7740 Q$=INKEY$:IF Q$="" THEN 7740 

7750 IF Q$="R" THEN 7610 

7760 IF Q$="M" THEN 7780 

7770 GOTO 7740 

7780 Q$="":CALL IBLOC(DSOS) 

7790 Yl=AH40D 

7800 CALL IBE0S(DS0%,Y%) 

7810 RETURN 



/ 
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Graphing Waveforms from 
Diskette. This subroutine will 
graph waveforms previously 
transferred from the 7854. 
The program checks to see 
if the graphics board is 
installed. If the graphics 
board is not installed, an 
error message is generated 
and the main menu is dis- 
played. Figure 4-1 0 lists this 
subroutine. 





Fig. 4-9. Send Vaiue to X Register 



8000 REM !!! Numeric data is transfered to the X register 
8010 Q$="":CLS:L0CATE X>2.1:C0L0R 0,7:PRINT STRINGS(240,32) 

8020 LOCATE X-1,Y:PRINT "SEND INFORMATION TO X REGISTER ":C0L0R 7,0 
8030 LOCATE 25,1 

8040 PRINT " COMMANDS: <C>0NTINUE <M>ENU 

8050 Q$=INKEY$:IF Q$="" THEN 8050 

8060 IF Q$="C" THEN 8090 

8070 IF Q$="M" THEN 8220 

8080 GOTO 8050 

8090 SS$=SPACE$(40):STA2=0 

8100 Q$="":CLS: LOCATE 10,10: INPUT "INPUT THE VALUE TO SEND TO THE X 
REGISTER", S$:SS$=S$+" ENTER" 

8110 WRTS="READX" 

8120 CALL IBWRT(DSO*,WRT$) 

8130 IF IBSTA*<1 THEN GOSUB 710 

8140 CALL IBRSP(DSO*,STAX):IF STA*<>147 AND STA%<>211 THEN 8130 
8150 CALL IBWRT(DSO%,SS$) 

8160 IF IBSTAKl THEN GOSUB 710 

8170 LOCATE 25,1: PRINT "COMMAND: <S>END <M>ENU "; 

8180 Q$=INKEY$:IF Q$="" THEN 8180 

8190 IF Q$="S" THEN CALL IBLOC(DSOX) :G0T0 8090 

8200 IF Q$="M" THEN 8220 

8210 GOTO 8180 

8220 Q$="":CALL I8L0C(DS0*) 

8230 RETURN 



Rg. 4-10. Graphing Stored Waveforms 



6000 REM ! ! This routine gets a waveform from disk and graphs it on the 
IBM PC 

6010 ' lines 6010 to 6040 check for graphics capabilities 
6020 DEF SEG=0 

6030 IF (PEEK(4H410) AND &H30) <>4H30 THEN GMA=1 

6040 DEF SEG:I=0 

6050 IF GMA=1 THEN 6080 

6060 PRINT "GRAPHIC MONITOR NOT INSTALLED; ABORTING COMMAND" :F0R C=1 TO 
1000: NEXT C:G0T0 6620 

6070 ' lines 6060 to 6140 prints title of routine, lists programs on disk, 
and gives user an option of returning to main menu. 

6080 CLS:LOCATE X+8,1:PRINT STRING$(80,205 ) :L0CATE X-1,1:C0L0R 0,7:PRINT 
STRING$(240,32):I=0 

6090 LOCATE X,Y+5:PRINT "GRAPH 7854 WAVEFORM FROM THE DISK":C0L0R 7,0 
6100 LOCATE X+10,Y:0N ERROR GOTO 9510:FILES "*.WFM" : LOCATE X+16,1:PRINT " 
THESE WAVEFORMS ARE STORED ON DISK" 

6110 LOCATE X+8,Y+8:PRINT "SELECT WAVEFORM" 

6120 LOCATE 25,1:PRINT "COMMANDS: <C>0NTINUE <M>AIN MENU "; 

6130 Q$=INKEY$:IF QS="" THEN 6130 
6140 IF Q$="C" THEN 6170 
6150 IF Q$="M" THEN RETURN 
6160 GOTO 6130 

6170 LOCATE 25,1:PRINT STRING$(79,32) ; :L0CATE X+18,1: INPUT "SELECT WAVFORM 
FILE FOR GRAPH (without extension) :" ,FILE$ 

6180 IF LEN (FILE$)<1 THEN BEEP:G0T0 6170 
6190 OPEN FILE$+".PRE" FOR INPUT AS #1 
6200 OPEN FILES+".WFM" FOR INPUT AS #2 

6210 CLS:LOCATE X+5,10:PRINT "LOADING WAVEFORM " 

6220 LINE INPUT #1,PRE$ ' input preamble from disk 



15 






Fig. 4-10 (cont) 



6230 PW$="NR.PT:" 

6240 Y=INSTR(l,PRE$,PW$)+6 

6250 X=YAL(MID$(PRE$,Y.9)) ' find out the number of points 
6260 DIM W(X) ‘ dimension w to number of points 

6270 V=VAL(MID$(PRE$.INSTR(30,PRES,"XINCR:")+6,9)):V=(V*X)/10 ' find time 

per point 

6280 C=VAL(MID$(PRE$.IMSTR{30.PRE$,"YZER0:")+6.8)) ' find any vertical 

offset 

6290 Y=YAL(MID$(PRE$.INSTR(50,PRE$,"YMULT:")+6,9)) ' find vertical scale 
factor 



6300 IF EOF (2) THEN 6360 ’ check for end of file 

6310 1=1+1 

6320 INPUT #2,WFM$ ' input a waveform point 

6330 IF I=X THEN 6360 

6340 W(I)=(YAL(WFM$)+C)*10 ’ add offset, adjust value for 10 div. 



store in an array 
6350 GOTO 6300 
6360 SCALE=3 
6370 8=512/1 

6380 COLOR 7,0:G0SUB 6880 ' generate graticule 

6390 DRAW ''S=SCALE;BM40.20;XTIC$;XTTIC$;'' 'draw then graticule 

6400 FOR J=1 TO X 

6410 YPNT=75-W(J)*2*(SCALE/4):HPNT=40+J*(SCALE/4.16)*B 
6420 DRAW "S=SCALE;M=HPNT;.=YPNT;" ' plot the waveform 
6430 NEXT J 

6440 ' next three lines set t/div to approprate settings 
6450 IF Y<. 000001 THEN Y=Y/lE-09:TDIY$="nSec/DIY" 

6460 IF Y<.001 THEN Y=Y/.000001:TDIY$="uSec/DIY" 

6470 IF Y<1 THEN Y=Y/.001:TDIY$="Sec/DIY" 

6480 LOCATE 20,15:PRINT USING "HORIZONTAL SCALE= ###" ;Y: LOCATE 20,40: PRINT 
T0IY$ 

6490 LOCATE 10,55: PRINT "YERTICAL SCALE" 

6500 LOCATE 11,55:PRINT "=";Y;"YOLTS/DIY" 

6510 LOCATE 1,20:PRINT "Waveform name: ";FILE$; 

6520 ERASE W 

6530 ' user has option of plotting new waveform, printing this waveform to 
a line printer or returning to main menu. / 

6540 LOCATE 25,1:PRINT “COMMANDS: <P>RINT <N>EW WAYEFORM <M>ENU"; 

6550 GOSUB 6610 

6560 Q$=INKEYS:IF Q$="" THEN 6550 
6570 IF Q$="N" THEN GOTO 6620 
6580 IF Q$="P" THEN GOTO 6670 
6590 IF Q$="M" THEN GOTO 6630 
6600 GOTO 6540 

6610 DEF SEG=0:P0KE 1047,64:DEF SEG:RETURN 



6620 X=5:Y=16:CL0SE #1,#2:SCREEN 0,0,0:G0T0 6080 
6630 Q$="":CL0SE #1,#2 
6640 SCREEN 0,0,0 
6650 X=5:Y=16:RETURN 

6660 ' this routine will do a screen dump to a line printer 

6670 LOCATE 1,1:PRINT DATES:LOCATE 1,65:PRINT TIMES 

6680 LOCATE 25,1:PRINT "Position paper to top of printer page. Printer 

ready (Y/N) ?"; 

6690 QS=INKEYS:IF Q$="" THEN 6690 
6700 IF Q$="y" OR Q$="Y" THEN 6770 
6710 GOTO 6690 

6720 LOCATE 25,1:PRINT "ANOTHER PRINT-OUT (Y/N) ?"; 

6730 QS=INKEYS:IF Q$="" THEN 6730 
6740 IF Q$="Y" OR QS="y" THEN 6770 
6750 IF QS="N" OR QS="n" THEN 6540 
6760 GOTO 6730 



( 



Ending the Program. This 
subroutine ends the pro- 
gram and returns to BASIC. 
All loose ends are taken 
care of and the interface is 
closed. Figure 4-11 lists this 
subroutine. 

SUMMARY 

By using the National inter- 
face card for the IBM PC, 
you can ‘talk’ to the 7854. 
You can transfer programs 
and waveforms to and from 
the 7854, write text on the 
7854 CRT, and graph the 
stored waveforms, all with 
your IBM PC. 



Roger Ensrud 
Applications Erraineer 
Lab Instrument Division 



Additional Information. 

Tektronix offers a software 

C -^^kage to perform all the 
^sS described in this doc- 
ument. For a fee, you can 
receive a diskette contain- 
ing the 7854/lBM PC 
programs. 

For further information or the 
address and phone number 
of the Tektronix sales office 
nearest you, call: 

(800) 547-1512 
In Oregon: (800) 452-1877 



Fig. 4-10 (cont) 



6790 DATA 4H55 
6800 DATA 4HCD, 4H05 
6810 DATA 4H5D 
6820 DATA 4HCB 



6770 LOCATE 25,1:PRINT STRING$(79,32) ; :SCREEN 2 
6780 DEFINT A-Z:0PTI0N BASE 1: P=0: 1=0: J=0:DIM ARRAY(3) 

:REM 55H PUSH BP 
REM CD05H INT 5 
REM SDH POP BP 
;REM 90H NOP 

6830 P=VARPTR(ARRAY(1)):F0R 1=0 TO 4:READ J:P0KE(P+I ) ,J:NEXT I 
6840 DEF USR0=VARPTR (ARRAY(D) 

6850 A=USR0(X) 

6860 LPRINT CHR$(12) 

6870 ERASE ARRAY: GOTO 6720 

6880 REM GRATICULE IS DEFINED HERE 

6890 CLS* SCREEN 2 00 

6900 HTIC$=''D20;R5*L5;D20;R5 L5;D20;R5 L5;D20;R50 L50;D20;R5 L5;D20;R5 
L5;020;R5 L5;D20;" 

6910 VTICS="R50;U5 D5;R50;U5 D5;R50;U5 D5;R50;U5 D5;R50;U50 D50;R50;U5 
05;R50;U5 D5;R50;U5 D5;R50;U5 D5;R50;" 

6920 TIC$=HTIC$+VTIC$ 



6930 HHTIC$="U20;L5 R5;U20;L5 R5;U20;L5 R5;U20;L50 R50;U20;L5 R5;U20;L5 
R5‘U20*L5 R5*U20*" 

6940 VVTIC$="L50;D5 U5;L50;D5 U5;L50;D5 U5;L50;D5 U5;L50;D50 U50;L50;D5 
U5;L50;D5 U5;L50;D5 U5;L50;D5 U5;L50;" 



6950 TTIC$=HHTIC$+VVTIC$ 
6960 RETURN 



Rg. 4-11. End Program 



8500 REM ! ! EXIT ROUTINE 
8510 CALL IBL0C(0S0%) 

8520 Y%=0:CALL IB0NL(DEV$,V%) 

8530 CLS:CALL IBL0C(0S0%) :KEY 0N:END 
9000 REM ERROR HANDLING ROUTINE 
9010 GOSUB 710 
9020 CALL IBL0C(DS0%) 

9030 RESUME 250 

9500 REM m MORE ERROR CHECKING ROUTINES 

9510 IF ERR=53 THEN PRINT "NO FILES EXIST WITH THIS EXTENSION" : RESUME NEXT 
9520 IF ERR=52 THEN CLOSE #1,#2:L0CATE X+16,1:PRINT "INVALID FILE NAME 
": RESUME 4030 

9530 IF ERR=62 THEN CLOSE #1. #2: ERASE W$: LOCATE X+16,1: PRINT "UNABLE TO READ 
THIS WAVEFORM FILE ": RESUME 4030 
9540 PRINT ERR 
9550 PRINT STA% 
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For further information, contact: 

U.S.A., Asia, Australia, Central 
& South America, Japan 

Tektronix, Inc 
PO Box 1700 
Beaverton, Oregon 97075 
For additional literature, or 
address and phone number of the 
Tektronix Sales Office nearest you, 
contact: 

Phone (800) 547-1512 
Oregon only; (800) 452-1877 
TWX: (910) 467-8708 
TLX: 151754 
Cable: TEKWSGT 

Europe, Africa, Middle East 

Tektronix Europe B.V 
European Headquarters 
Postbox 827 
1 180 AV Amstelveen 
The Netherlands 
Phone: (20) 471146 
Telex: 18312 - 18328 

Canada 

Tektronix Canada Inc. 

P O. Box 6500 
Barrie, Ontario L4M 4V3 
Phone: (705) 737-2700 

Tektronix sales and service 
offices around the world: 

Albania, Algeria, Argentina, 
Australia, Austria, Bangladesh, 
Belgium, Bolivia, Brazil, Bulgaria, 
Canada, Peoples Republic of 
China, Chile, Colombia, Costa Rica, 
Czechoslovakia, Denmark, East 
Africa, Ecuador, Egypt, Federal 
Republic of Germany, Rji AWA 
New Zealand, Finland, France, 
Greece, Hong Kong, Hungary, 
Iceland, India, Indonesia, Ireland, 
Israel, Italy, Japan, Jordan, Korea, 
Kuwait, Lebanon, Malaysia, 

Mexico, The Netherlands, Ne^L 
Zealand, Nigeria, Norway, Paki^nT 
Panama, Peru, Philippines, Poland, 
Portugal, Qatar, Republic of South 
Africa, Romania, Saudi Arabia, 
Singapore, Spain, Sri Lanka, 

Sudan, Sweden, Switzerland, Syria, 
Taiwan, Thailand, Turkey, Tunisia, 
United Arab Emirates, United 
Kingdom, Uruguay, USSR, 
Venezuela, Yugoslavia, Zambia, 
Zimbabwe 




Copyright © 1985. Tektronix, Inc All rights 
reserved Printed in U S A Tektronix products 
are covered by U S and foreign patents 
issued and pending Information in this pub- 
lication supersedes that in all previously pub- 
lished material Specification and price 
change privileges reserved TEKTRONIX, 
TEK, SCOPE-MOBILE and are registered 
trademarks For further information, contact 
Tektronix, Inc . PO Box 500. Beaverton, OR 
97077 Phone (503) 627-7111, TWX: (910) 
467-8708. TLX 151754, Cable TEKWSGT 
Subsidiaries and distributors worldwide. 
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